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WINTER CES 
BY 


FRED CORNETT 


The Consumer Electronic Show (CES) is an 
exhibition where electronic manufacturers 
purchase booth space to display new and 
existing products. This show is closed 

to the general public and admittance may 

only be gained by those who can show 

proof of operating a business (manufac- 
turing, wholesale, retail, wo tc ) oe HEAL ng 
with electronic products. ripahes 





The purpose of the CES 
is to allow purchasing 
agents to see all of 
what is currently avail- | 
able (or forcasted) and 
place orders in person. 
The CES is held semi- 
annually, winter in Las 
Vegas, and summer in 
Chicago. The importance 
of these two shows can- 
not be overestimated! 


PROGRAMMING: vas 


I've attended numerous 
CES's and have never 
seen more people in at- 
tendance. The Astro- 
Vision booth was a com- 
plete sucess!!! We had 
one of the busiest 
booth's at the show! I believe an apol- 
ogy is due the hundreds of subscribers 
that introduced themselves to me and des- 
ired to chat a bit. Things were rather 
harried at the AstroVision booth and time 
did not permit me to give each of you as 
much attention as you deserved. The off- 
‘shoot was that we signed up several hun- 
dred new dealers and distributors and 
placed over 20,000 orders for units. 


Dr. Tom DeFanti and protoge Copper were 
up to their armpits with the "lookie- 


BEFORE ZGRASS !!! 


loos" (i.e,, “My gawd Martha, look at 
what that computer is doing!"). Tom 

was happily (albeit somewhat wearily) 
showing off his long-awaited brain-child, 
the "Z=-GRASS 32". Poor Tom had a crowd 
around him that lasted four days and 
even accompanied him to the Men's. Room. 


Tom had written a program that simulated 
a popcorn popper (the kind you place on 

a stove), the popcorn kernels would siz- 
zle in the bottom of the pot, then rand- 
gomly "pop", with the level 
4 continuously rising until 
_the lid was pushed off the 
popper. This had to be 
the most realistic popper 
simulation I've ever seen 
| (far better than the photo 
‘published in Creative 

T computing of another pop= 
|per). 








Now that I've seen the "Ze 
‘GRASS 32" add-under, a few 
i discrepancies have surfac- 
ed between the specificat~ 
gens I printed in the last 
_@ issue of CURSOR and what 
B vas displayed at the show; 
1. The add-under will 
not include a “Microsoft" 
ff tyre BASIC. The operating 
system is exclusively "Z- 
GRASS". 


2. Point 6 of the Nov/Dec Cursor set 
the cassette Baud rate at 2000; that 
should have read 1800.. 


3. Point 8 of the Nov/Dec Cursor stated. 
the "Z-GRASS 32" would handle "Hi-Res" 
graphics; It will not! 


I expressed my misgivings regarding the 
lack of BASIC to Jeff Fredericksen of 
Dave Nutting & Associates who in turn told 
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me that he. didn't find. the unfamiliarity.of the. ZGRASS. ‘lan- 
guage to be a major problem. Jeff had converted a Checkers 
program (in BASIC) from one of David Ahl's. ‘books in only.a: 
couple of hours! 


Tom DeFanti told me. that he ‘had long been disgusted with BASIC 
which was ‘developed at Dartmouth many years ago for use with 
“calculators. and subsequently became the "standard" language 

of micro-computers. He asked me why many computer users go to 
the trouble: and expense to learn. machine language? ‘The an- 
swer is not merely one of increase in speed of operation; but. 
to allow the computer to accomplish functions that BASIC is 
not capable of handling. ZGRASS allows the programmer to 
‘write interesting and useful programs more easily. The 
graphics system is specifically designed for creating games, 
graphs, video art, and other visual effects. While you can 
create some of these effects in BASIC, the ZGRASS computer 
makes it easier because the system is designed for immediate 
use by artists, teachers, businessmen, and musicians with 
little or no programming experience. 


Over 100K of RAM and ROM memory capacity make the Arcade with 
ZGRASS keyboard one of the largest personal computers availa- 
ble. 


In standard configuration, the Arcade provides 4K of screen 
RAM. Plug-in cartridges with up to 16K ROM (read-only memory) 
may be used for additional languages, turn-key graphic sys- 
tems, and other software expansion. The keyboard contains 
32K RAM, expandable to 64K, and 24K ROM. The ROM contains: 
l-The ZGRASS language and, 2-Complete scientific mathematics 
package. 


The ZGRASS language includes the following features: 
1. A full-screen text editor. 
2. POINT, LINE, BOX and CIRCLE commands. 


3. String manipulation to include match, concatenation, re- 
placement, etc.. 


4. Multi-dimensional arrays & string arrays. 
5. Both interpreted & compiled modes. 


6. Fully automatic storage allocation and reclamation. Auto- 
matic type conversion between integer, floating, and 
strings. No need to declare variable types. 


7. Scientific Math Package, with 13 digit accuracy, to in- 
clude: Sine, Cosine, Tangent, Arctangent, Arccosine, 
Arcsine, Power, Natural & Base Ten Logarithyms & square 
root. 


The hardware supports the following: Either the TV speaker or 
your stereo system may be used for playing back audio signals 
on the cassette. 


Two standard RS232 interfaces, one of which is full duplex 
with handshaking , which will. support an ASCII terminal, 
telephone modem, printer, to name only a few. 


Two 1800 Baud audio cassette interfaces with DC motor control; 
The dual DC motor controls let the computer start and stop the 
cassettes to merge files or select audio or program data. 


Disc controller & connectors for 2 Radio Shack 5%" floppy 
disc drives. 


In conjunction with the "ZGRASS32", AstroVision plans to mark- 
et the following peripheral devices: 


1. TV PRINTER: Hard copy of any screen image, including: 
Business forms, forecasts, graphs, charts, word pro- 
cessing, data, etc.. 


2. LIGHT PEN: Draws directly on the screen as you create 
artwork, respond to a menu, or interact with other 
programs. 


3. BIT PAD: Digitizer inputs standard artwork, maps, and 
models in either 2 or 3 dimensions for computer display 
or analysis. 








4, SLIDE COPIER: Works with any 35mm SLR camera to create 
slides from your TV screen. You can make graphs and il- 
lustrations for slide shows, or create film animation 
sequences. _ 

The "Z-GRASS 32" plugs directly into the 40 pin. connector. loc- 
ated at the rear of the Arcade (under a plastic punch out). 
The price remains $599.00. 


Dan Dawson, President of AstroVision is very aware of all the 
broken promises Bally had made regarding the add-under and he 
is determined that the "Z-GRASS 32" will. be available in re- 
tail stores this summer! 
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We have had numerous requests for info regarding BACK ISSUES: 

The following are available: 

1. Jan. 80 Contains: Electric Bill Analysis; Plastic Puzzle, 
Instructions for adding a Full-sized ASCII Keyboard; Life 
Systhesis Model. 

2. Feb. 80 Contains: PEEK n' POKE: Hex to Decimal Converter; 
String Array @({A) Memory Locator; Instructions on how to 
add a Printer; Bubble Sort; Camel; Memory Map; WUMPUS. 

3. Mar. 80 Contains: Three Voice Music Assembler; Star Wars 
Music; Chopsticks; Chicago Loop; Lace Curtain; Character 
Set Size Multiplier; Rotation; National Distributor Info. 

4. Apr/May 80 Contains: DMA Graphics (eliminates BOX & LINE 
commands, allows very complex graphics!); Reference Books, 
Product Review (Computer Ear-Speech Recognition Unit for 
Bally); Music Contest; RING; Alarm Clock; Byte Saving Hints. 

5. June 80 Contains: Direct Color Video/Audio Circuit (for 
Color Monitor or VCR etc.); Galactibattle (Game); PRINT & 
STRING Tutorial; OTHELLO: ASCII Conversion Chart; Cursor 
Control Chart. 

6. July 80 Contains: CURSOR Keyboard & 48K Memory Add-On 
info; ARCADE GOLF; Shell-Metzner Sort; Wavemakers "Maze- 
maker: Floating Point Math; User Group Meetings. 


VOL. 2, Issue 1 (August) Contains: Cursor Inventory Control 
(Business Software); “Connect Four" (a professional quality 
game); software for the Computer Ear (Anderson Research) - 
‘Fun With. Music’, 

VOL. 2, Issue 2 (Sept.) Contains: ASTROVISION ACQUIRES BALLY - 
an Editoral; Spider Web (Graphics Program); Reverse (Game) ; 
Design ( a Graphics Program); Match Quiz (an Education Program) ; 
Note Match (an Education Program). 

VOL. 2, Issue 3 (October) Contains: Peek n' Poke Tutorial; 
Critter - a Machine Language Program that creates a non-blink- 
ing FAST moving character; Poor Mans Memory Expansion (a 
tutorial); Sideswipe (car driving game); We Three Kings of 
Orient Are (3 Voice Chord Music); Machine Language Graphics 
Tutorial. 

VOL. 2, Issue 4 (Nov/Dec 1981) Contains: "Z-GRASS 32"; 
AstroVisions add-under;Product Review of all Bally Game 
Cartridges;CHESSETTE, a computer chess program; Software 
Review of George Moses and WaveMakers products; The Forgotten 
Half, humerous article. 





SEND $1.60 per back issue desired OR $9.75 for Volumn 1 to:) 
CURSOR, P. 0. Box 266, No. Hollywood, CA 91603. 





~ BLANK HIGH QUALITY TAPE 


If you have wanted High Quality “Glitch Free” Computer Digital 
Tape Cassettes such as those RADIO SHACK sell for upwards of 
$3.50 each but didn't want to pay the price, try CURSOR Brand 
C20 Digital Tapes. 10 TAPE CASE (includes individual poly 
| boxes) $13.75 including postage. 


@7~~ Rt YS 
CHEAP TIME SAVING DEVICE 


Do you only input the shert programs in CURSOR because you 
didn’t want to spend two hours inputting the long ones - only to 
find you made input errors and will have to spend one more hour 
debugging? If so, why not spare yourself all the trouble and buy 
your issues on tape? $3.95 per Issue OR $7.40 for any two 
Issues (includes postage, etc.). 











CURSOR TO START 
RAPID PRODUCT DELIVERY 


FRED CORNETT ‘JIM TERRY 
The Cursor Group takes great pleasure in announcing the addi- 


tion of Mr. James A. Terry to it's staff. Jim's position is 
Vice President for Operations. 
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NEW POLICIES : 
BY A 


JIM TERRY Ys 
VP OPERATIONS 


To the best of my knowledge, most of our readers are well sat- 
isfied with our issue content and the quality of our products. 
However, the one glaring area that has required my immediate 
attention is SERVICE!! 


Starting immediately, we will publish. CURSOR once monthly, 
with a mailing cut off date firmly set at the 20th. 


The problems CURSOR has been having are not unique. Most bus- 
iness structures fail not from a lack of business, but from an 
overabundance! Our business had grown too rapidly and out- 
paced our organizational capacity to effectively handle it. 

To alleviate that situation, my position has been created and 
subsequently I have re-organized and formatted our mail-order 
department. 





Effective immediately, all mail orders will be processed 
as follows: 


1. All orders for non-hardware items such as manuals, back- 
issues, etc., or selected items such as blank tape, issues 
on tape, software on tape, head demagnetizers, etc., will 
be shipped within 72 hours (excluding weekends & holidays) 
if order is accompanied by Money Onder. 


Gey ie your order falls into the category of #1 above, but pay- 
ment is by check, your order will be Shipped within 10 
working days of our receipt. 


3. BALLY Cartridges: All BALLY cartridges and hardware will 
be shipped using the above schedules. However if a BALLY 
item is momentarily out of stock, we will send you a 
written notice to that effect with the expected shipment 
date. 


ALL orders will be acknowledged either by shipping the mer- 

chandise within the time-frame specified above, or by Letter 
0% explanation. We do want your business very much, and in 

exchange for it, we will give you excellent service. 


C.0.D,: We will ship any "CURSOR" merchandise C.0.0.. We 
are not able to ship Bally cartridges C.0.D.. There is a 
$2.75 handling charge for all C.0.D. orders (plus Post Office 
C.0.D. fee). If you wish to place a C.0.D. order, call 
213/843-7332 during business hours, or drop us a line. 


During the Christmas season, we added a few thousand new sub- 
scribers who may not be aware of our beginner level manuals. 





Three of these manuals are vital to put the arcade through 

it's paces: 

1. HACKERS MANUAL-Explains the additional BASIC commands 
available that your Bally booklet did not describe. 

2. PEEK n' POKE MANUAL-Explains in detail (step-by-step) the 
most powerful programming techniques possible on the Bally, 
such as those used for the 256 Color program in this issue. 

3. ON-BOARD ral SUBROUTINES MANUAL-Used in conjunction with 
the PEEK n' POKE manual. Allows you to do things that are 
virtually impossible with only BASIC, such as the game car- 
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‘To show you we are determined to give you good service, we 


have slashed the price of these three manuals. The standard 
price for all three is $16.03 (price wilh go up with March 
dssue due to postal increase) inckuding first class postage. 
Send us a money order or check for the: "3 MANUAL OFFER" post- 
marked prior to 20 March 1981, and get them for $13.95(price 
includes first class postage). C.0.D. orders: accepted. Give 
our new fast service a try, we know you'll be satisfied!!! 


SOGHO S58 O6 0S SES6000 
IMPORTANT PROGRAMMING NOTICE: 


It is sometimes difficult to ascertain the correct number of 
spaces with a PRINT statement. To facilitate ease of input, 
we-are using the special character "7" to designate a SPACE 
where-ever confusion could exist. 


Also, please note that we are underlining a11 Command Words 
such as PRINT; FOR, etc., so- that you can save the appropriate 
bytes where necessary. All zeroes are slashed throughout all 
of our programs so that you can tell the difference between 
the letter 0 and @. Please make sure that you input our pro- 
grams exactly as we have printed them, we have checked our 
final copy before it is printed and will be error free. 


OBS BS SSS O8SSS060C660S 
BIORHYTHM COMPATIBILITY ANALYSIS 


BY 


ALEX MORALES 


This program computes the bio-rhythm 
pattern of two individuals and displays 
a bar graph showing percentages of com- 
patibility. 


Input 2 digits for month and 2 digits 
for day with 4 digits for year; pressing 
GO after day and month and year. 


Percentage accuracy may vary by 5-7 %. 


The Cursor Group assumes no Liability 
for any marital discord that may arise 
fom the use of this program. The re- 
sults will surprise you! 


PHY=Physical Cycle 
SEN=Emotional Cycle 
COG=Intellectual Cycle 


1 .257 COMPAT 
2 .BY ALEX MORALES 
1% CLEAR ;BC=8;FC=7 
28 PRINT "CCCOMPATIBILITY ANALYSIS";CxX 
=-41; PRINT “FOR 2 PEOPLE": PRINT 
3% FOR I= Uys] 2 


4 PRINT "CT CPERSO ",#1,1I1,"'"S BIRTHDAY 
7 = 


45 PRINT "tc (MM DD YYYY) 
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59 INPUT "CCMONTH"@(I+12) 
68 INPUT "ZTDAY"@(I+14) 
79 INPUT "CCYEAR"@(I+16) 
88 CLEAR ;NEXT I 
98 GOSUB 192 
189 S=1;x=9 
11g IF @(17)>@(18)S=-1 
129 FOR I=@(17)TO @(18)STEP $ 
139 R=I+4;IF RM X=X+365;GOTO 159 
14% X=X+366 
15% NEXT I 
16% IF S=1GOTO 279 
17% IF @(17)=@(18)GOTO 229 
188 W=365-(@(@(13) )+@(15)-1) 
198 Z=@(@(14) )+@(16)-1 
20% X=ABS (X-W-Z) 
218 GOTO 39 
228 W=@(@(13))+@(15)-1 
238 Z=@(@(14))+@(16)-1 
25% X=ABS (W-Z) 
268 GOTO 399 
278 W=@(@(13))+@(15)-1 
288 Z=365- (@(@(14) ) +@(16) -1) 
29% X=ABS (X-W-Z) : 
300 R=X+23;G=RM; R=X+ 28; H=RM; R=X*+33;J=RM 
318 R=199+23;T=RM; T=Tx1PP+ 23 
328 R=199+ 28; U=RM; U=Ux1 99+ 28 
338 R=199+ 33; V=RM; V=Vx1GP+ 33 
348 K=ABS (19@- ( (2xG) x (19G+23) )) ;@(19) =K 
+( (2xG) xT) +199 
356 L=ABS (199- ( (2xH) x (189+ 28) )) ;@(29) =L 
+( (2xH) xU) +199 
36% M=ABS (180- ( (2xJ) x (188+33) )) ;@(21)=M 
+((2xJ) xV) +199 
37H @(22)=(@(19) +@ (28) +@ (21) ) +3 














38% CLEAR ;LINE -89,42,9;LINE 79,42,1;L 


ine -89,-9,9;LINE 79,-9,1 

39% FOR I=-79TO 79STEP 4;BOX I,16,3,1,1 
;NEXT I 

49D B=39 

419 X=-70+B+2 

42% FOR I=19TO 22 

425 IF IF @(I)>199@(I)=199 

43% Y=@(I)+4-8 

435 IF @(I)<2GOTO 459 

44% BOX X,Y,B+2,@(1)+2,3 

45% X=X+B 

46% NEXT I 

47% CY=-24;PRINT "CCCPHYCCSENTCCOGECAVG 





488 PRINT #5,@(19) ,"%",#4,@(2f) ,"%",#4, 
@(21) ,"%",#4,@(22) ,"% 
499 A=KP; RUN 
188H @(1)=G; @ (2) =31; @(3) =59; @ (4) =99; @(5) 
=129;@(6)=151 
1010 @(7)=181;@(8)=212;@(9)=243; @ (19) =27 
3;@(11) =304; @ (12) =334; RETURN 
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The instructions for this game are con- 
tained within: the body of the program. 


We suggest you start with 4 blocks when 
prompted "HOW MANY BLOCKS?", then as you 
understand how the game works, try it 
with more blocks 


EXCELLENT GRAPHIC EFFECTS! ! 


1@ .TOWERS OF HANOI 
2% .BY BRUCE DeVRIES 
38 :RETURN ;CLEAR ;NT=% 
49 PRINT "THIS IS THE TOWERS OFTCTCTHAN 
OI PUZZLE";PRINT "THE OBJECT IS TO M 
OVE ALL THE BLOCKS ONE AT A TIME 
5@ PRINT "FROM THE FIRST ROD TOCUCCCEIT 
HER THE SECOND OR THIRDROD";PRINT "T 
HERE IS ONE RULE YOU CAN 
6% PRINT "NOT PUT A LARGER BLOCK ON TO 
P OF A SMALLER ONE";PRINT "YOU MAYZ 
USE 2TO 7 BLOCKS 
7% PRINT "USE THE JOYSTICK TO SELECTTHE 
TOWER AND TRIGGER TO LIFT AND LOWERZ 
THE RING 
88 PRINT "HOW MANY BLOCKS ? ",;K=KP;TV= 
K; TV=13; R=K-48 
98 IF (R>7)+(R<2)GOTO 89 
199 CLEAR ;V=4 
119 @(1)=R; @ (2) =9; @ (3) =p 
128 FOR D=1T0O R; @(1Q-R+D)=7-R+D; NEXT D 
138 NT=V;T=¢ 
14% FOR P=1TO 3 
15g BOX Px56-112,-6,3,69,1 
166 BOX Px56-112,-42,47,3,1 
17% NEXT P 
18% FOR B=8-RTO 7 
19% BOX -56,27- 7=Bx9 , @ (B+3) x5+19,8,1 
208 NEXT B : 
218 P=2 
229 P=P+JX(1);IF P>3P=1 
239 IF P<1P=3 
246 BOX Px56-112,-6,3,69,2 
25% FOR Q=1TO 28;NEXT Q 
266 BOX Px56-112,-6,3,69,1 
27% IF TR(1)=$GOTO 229 
288 NT=9; T=T+1;CY=4%;CX=-77;PRINT "TURN", 
#4,T,;NT=V 
298 iF. @ (P) =gGOTO 222 
36D X=Px56-112 
318 Y=@(P)x9-45 
320 S=@(Px7-@(P) +4) ;W=Sx5+19 
338 @(P)=@(P)-1 
348 N=48+@(P) ; FC=4+@ (P) x129 



































SL 


359 BOX X,Y,W,8,3;Y=Y+9 
368 BOX Px56-112,-6,3,69,1 
37% BOX X,Y,W,8,3 
388 FC=FC+129 
39% MU=N;N=N+1 
_ 40% FOR Q=1TO 39;NEXT Q 
419 IF Y>3QGOTO 459 
426 BOX X,Y,W,8,3 
438 Y=Y+9 
44% GOTO 379 
459 BOX X,Y,W,8,3 
469 P=P+JX(1);IF P>3P=1 
479 IF P<1P=3 
489 X=Px56-112 
49% BOX X,Y,W,8,3 
59% IF TR(1)=GOTO 459 
519 IF @(P)=fGOTO 539 
52f IF S>@(Px7-@(P)+4)GOTO 459 
53% BOX X,Y,W,8,3 
548 @(P)=@(P)+1 
559 FOR A=8TO @(P)STEP -1 
56% Y=Y-9;BOX X,Y,W,8,3 
57% FC=FC-129 
589 N=N-1;MU=N 
59% FOR Q=1TO 3%;NEXT Q 
629 BOX X,Y,W,8,3 
619 NEXT A 
629 BOX X,Y,W,8,1 
630 @(Px7-@(P)+4)=S;IF @(P)#RGOTO 229 
649 IF P=1GOTO 220 
65% S=1;FOR A=1TO R;S=Sx2;NEXT A;S=S-1 
66% IF S=T CX=9$;NT=$;PRINT "PERFECT SCO 
RE",;GOTO 699 
679 PRINT "CYOU.MADEC",#1,T-S,"CERRORS" 


689 & (19) =14;TV=13;NT=29;PRINT "1991911 
$G+2922G119-119991cc1c11050+27227112 
-11¢";CLEAR ;&(19)=188;GOTO 39 

698 & (1M) =14; TV=13;NT=19 . 

70% PRINT "66%6656-79969659554569949469 
6656-700x20x2x1x1x1-795499906x1x1x1 
X29x2x109006x1x1x1x29x2x1PGGB", 

71% CLEAR ;&(1%)=18%;GOTO 39 


_, << oO oe 
P anuaLs**MANUALS**MANUALS**MANUALS 


Te|NOTE: ALL MANUALS SENT-3RD CLASS UNLESS OTHERWISE DESIGNATED 


1. Bally On-Board ROM Sub-Routines. Explains the use of the on- 
board routines which allow you to perform such things as you 
find in the “Machine Language Programs" in Cursor. Includes 
ASCII Standard & Nonstandard Character Sets, Cassette Memory 
Structure; Output Ports; Input Ports; Bally Data Base Locat- 
ions; Bally Memory Locations; and On-Board ROM 8K Hex Dump. 
$3.99 


2. Hackers Manual. Describes features provided in the Tiny 
Basic but not documented in the Bally Instruction Booklet. 
(Additional Commands). $3.49 


3. Disassembled Tiny Basic (CDOS Z80 Assembler Version 02.15) 


A complete assembly language listing including OP Code and 
comments of the Tiny Basic Cartridge. $7.49 





NOTE: 


4. Disassembled Brickyard & Clowns. A complete assembly lang- 


uage listing including OP Code and comments. $7.99 


5. Disassembled DEMO Cassette. A complete assembly language 
listing including OP Code and comments. $7.49 


6. Bally System Description Book. Extensive and includes 
“Electrical Specifications for Midway Custom Circuits", Timing 
Interrupt handling explanations, etc. $7.99 


7. Disassembled System Software. A complete assembly language 
listing including OP Code and comments to include: Home Video 
Game Equates; Port Equates; System Call Indexes; Macros; Music 
Macros; Music Equates; System RAM Memory Cells; User Supplied 
Routines; Masks; UPI Routines Address Tables; Sentry; BCD 
Divide; BCD Subtract & Add; Decrement Counters & Timers; Music 
CPU; Vectoring Routines; Paint Rectangle Routines; Write Rou- 
tines; Character Display Routines; Display BCD; Menu Routines 
and much, much more. $11.99 


8. Disassembled On-Board Games. A complete assembly language 
listing including OP Code and comments to include: Scribbling, 
Calculator, Checkmate, Gun Fight. $13.75 


9. Bally Service Manual. Schematics, Parts Lists, instructions 
for removing RF Shields, and much more. No one should be with- 
out it!: $3.19 


10. PEEK n' POKE: The only manual written that is truly 
beginner level. Opens up the power of machine language; 
tells how to get floating point decimal out of this 
machine along with programs. $7.50 


Add 7% to the total order for First Class Postage. SEND 
TO: CURSOR, P.0. Box 266, No. Hollywood, CA 91603 


DIV OV VO DODO VOD DOD 
EXECUTIVE TIME CARD CALCULATOR 
BY 


GEORGE MOSES 


George owns and operates a publishing 
house and actually uses this program to 
figure his payroll. George does not 
allow his employees to work overtime on 
weekdays, only on weekends. 


This program uses the "executive math" 
routine described in the "HACKERS" manual 
to allow decimal math computations. 


Computer will ask for "TIME-IN" and "TIME-. 
OUT". You may use 24 hour time or reg- 
ular. 


If you have single digit hours precede 
with zero. Press 1 for AM, 2 for PM. 
Program takes a little time after hitting 
AM or PM indicator, so be patient! 


1f CLEAR ;NT=%;@(9)=1;@(8)=2;@(27)=6;@ 
(44) =1; @(43)=5;H=1999 

2% PRINT ;GOSUB H;FOR A=99TO 98STEP -1 
;@ (A) =KP; TV=@(A) ;NEXT A;PRINT ":",; 
FOR B=81TO 8MSTEP -1;@(B)=KP;TV=@(B 
) ;NEXT B;PRINT 

30 PRINT "¢ (1)=AMCzc (2) =PM"; $-@ (99) ,@ (9 
),@(189) ; IF KP=5fIF @(197)=56GOSUB 
2200 ! 

49 $=@(72),@(18) ,@(1%8) ; IF DGOTO 69 

5f $+@ (99) ,@ (198) ,@ (126) ;D=1;FOR C=72T 
O 125;@(C)=$;NEXT C;GOTO 29 
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6G $+@(9M) ,@(1G8) ,@ (144) ;D=9; $-@(144) ,@ 
(126) ,@ (162) ;$+@(198) ,@ (162) ,@(198) ; 
FOR F=72TO 197;@(F)=$;NEXT F 
76 PRINT ;PRINT "Z(1)=CONTINUETZ (2) =TO 
TALS"; IF KP=49GOTO 29 
88 @(99)=4; $-@ (9G) ,@ (198) ,@(54) ; PRINT 
;PRINT "CINPUT HOURLY WAGE $",;FOR 
G=80TO 78STEP -1;IF G=79PRINT ".", 
98 @(G)=KP;TV=@(G) ;NEXT G;$x@(72) ,@(19 
8) ,@(162) ;$x@(54) ,@(36) ,@(126) 7 $+@ ( 
98) ,@(126) ,@ (198) 
108 $x@(1M8) ,@(72) ,@(144) ;NT=1;GOTO 399 
g 
196 PRINT "CTIME IN-¢", ;H=191; RETURN 
1918 PRINT "CTIME OUT-C", ;H=19090; RETURN 
20 0D $+@ (98) 1@ (9) r@ (99) ; RETURN 
3098 CLEAR ;CY=16;PRINT "REGULAR HOURS== 
sssas=",;IF @(71)=56PRINT "49. 99";G 





























OTO 3939 

3910 FOR H=2Q7TO 2@4STEP -1;IF H=2Q5PRIN 
T ae 

3926 TV=@(H) ;NEXT H;GOTO 3959 

3938 PRINT "OVERTIME HOURS=======", ;FOR 





J=63TO 6PSTEP -1;IF J=61PRINT ".", 

364% TV=@(J);NEXT J 

305% PRINT "REGULAR PAY========$",;IF @( 

_ 71)=56$x@ (99) ,@(72) ,@ (18%) ;FOR K=19 
PTO 186STEP -1;IF K=187PRINT ".",;G 
OTO 3979 

366M IF @(71)=48FOR K=172TO 168STEP -1;1 
F K=169PRINT ".", 

307% TV=@(K) ;NEXT K;IF @(71)=56PRINT "OV 
ERTIME PAY=======$", ; $x@(126) ,@(72) 
,@(216);FOR L=226TO 222STEP -1;IF L 
=223PRINT ".", 

3088 IF @(71)=56TV=@(L) ;NEXT L 

399% PRINT "TOTAL PAY==========$",;IF @( 
71)=48FOR M=172TO 168STEP -1;IF M=1 
69PRINT ".",;GOTO 3119 

‘311 TV=@(M) ;NEXT M;FOR A=$TO 233;@(A)=9 
;NEXT A;PRINT ;PRINT "FOR NEXT TIME 
CARD PRESS GO",;IF KP=13RUN 


























"MZ ONEIN4G SE Mis aE OSE NRE NSE RES 


DISPLAY ALL 256 COLORS 
ON SCREEN AT SAME TIME 


BY 
oo J. BURIANYK Sc] 


This program uses the PEEK command 
($(Location]=Value) to stone a machine 
Language program in the "Tape Input Bugs- 
en". The program was first unttten An 
Z80 Assembly Language (MNEMONIC), then 
converted to HEX (OP CODE). The HEX was 
translated to DECIMAL and subsequently 
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POKED into memory Locations 20200 (4EED) 
through 20260 (4F24). 


We strongly suggest the use of The Cursor 
Group "PEEK N' POKE" manual to fully un- 
derstand this procedure. The "PEEK N' 
POKE" manual is a beginner level instruc- 
tion course. 


The 256 Color program used Screen Inter- 
nupts which Brett Bilbrey so brikrliantly 
pioneered with his "CRITTER" program in 

the October 1980 issue of CURSOR. 


The width of the 256 color display is 


governed by the value of &(9) in line 330. 


The interrupts allow concurrent process- 
ing. Once you are running this program, 
you can press "HALT", the Color program 
will continue running and you can elimin- 
ate lines 10 through 400 by keying in the 
line number and "GO" (remember-the BASIC 
program is only used to assemble a mach- 
ine language program in the "Tape Input 
Buffer"),the BASIC program is no longer 
needed. 


To stop the Color program, key-in ":RET- 
URN". If you have eliminated lines 10- 
400, restart program by keying "CALL 
20200". 


The quantity of colors displayed can be 


limited by using Hand Control Knob #1. 
This program will give your TV it's su- 
preme test of quality. We use a 10 inch 
Panasonic with our Bakly in the office, 
and it 44 capable of only showing about 
14 cokonrs. Our Zenith however showed 
them alk!! 


Many many thanks to Jerry & Brett for 
Sharing their results with us! 
1Q A=20209; B=A; C=499; CLEAR 
2 X=-9741;GOSUB C 
3f X=2993G;GOSUB C 
48 X=18413;GOSUB C 
56 X=-2754;GOSUB C 
6% X=3539;GOSUB C 
7 X=-1963;GOSUB C 
8% X=-2193;GOSUB C 
9% X=-12978;GOSUB C 
1f9 X=8368;GOSUB C 
11% X=-4621;GOSUB C 
12% xX=8819;GOSUB C 
13Q.X=12622;GOSUB C 
148 X=299%2;GOUSB C 
15% X=-14859;GOSUB C 
16% X=-6699;GOSUB C 
17% X=-6691;GOSUB C 





























| 
| 

















SLs 


188 X=-6659;GOSUB C 

19% X=7387;GOSUB C 

29@ X=211;GOSUB C 

218 x=467;GOSUB C 

228 X=723;GOSUB C 

238 X=979;GOSUB C 

- 248 X=15637;GOSUB C 

259 X=-3949;GOSUB C 

268 X=-7683;GOSUB C 

276 X=-7715;GOSUB C 

288 X=-11897;GOSUB C 
298 X=-3647;GOSUB C 

38 X=31725;GOSUB C 

318 X=29992;GOSUB C 

328 X=-13829;GOSUB C 
338 &(15)=255;&(9)=18 
348 CALL (B);GOTO 599 
499 %(A)=X;A=A+2; RETURN 
599 FOR A=$TO 255STEP 8 
518 BC=A;FC=A-2;CY=-4; CX=-77 
529 PRINT A;NEXT A 









































The following is a machine language 
explanation of the 256 Color program 

for use by hackers or those who have our 
PEEK N' POKE manual. 


ADDRESS OP CODE MNEMONIC COMMENTS 


29299 8=6F3 DI 3(SAVE 20 BYTES OF THE LINE 
INPUT BUFFER FOR BASIC PGM 
INPUT) DISABLE INT 


D9 EXX 3 
3E 4E LD A,4E 3LD ACCUMULATOR WITH H BYTE 
OF INT VECTOR ADDRESS 
. ED 47 LD I,A 3LD I REGISTER WITH H BYTE 
OF INT VECTOR ADDRESS 
3E FS LD A,F5 3LD ACCUMULATOR WITH L BYTE 
OF INT VECTOR ADDRESS 
D3 9D OUT (9D),A ;LD CUSTOM CHIPS WITH L 
BYTE OF INT VECTOR ADDRESS 
D9 EXX 3 
FB EI sENABLE INT 
c9 RET 3 
/ 
29213 =~-F7 4E DEFW 4EF7 POINTS TO ADDRESS OF INT 
ROUTINE 
29215 CD BP 2p CALL 2989 ;CALL BALLY BASIC INTERUPT 


ROUTINE TO SEE IF INT 
VECTOR IS ON LINE 


F3 DI 3 
ED 73 22 4E LD 4&22,SP ;SAVE THE SP IN THE TAPE 
INPUT BUFFER 


31 22 4E LD SP,4E22 ;MOVE SP 

F5 PUSH AF 3SAVE ALL REGISTERS 

C5 PUSH BC ; 

D5 PUSH DE 4 

E5 PUSH HL ; 

DD E5 PUSH IX ; 

FD E5 PUSH IY 3 

29234 DB IC IN A,(1C) 3GET KN(1) VALUE 

D3 99 OUT (99),A  3SEND IT TO COLOUR PORTS 
@ THRU 3 

D3 91 OUT (91),A 3 

D3 92 OUT (92),A 3; 

D3 93 OUT (93),A 3 

15 DEC D - ;THIS IS NOT NEEDED (BUT 
TAKES UP ONE BYTE TO EVEN 

UP THINGS) 
3D DEC A ;DECREASE KN(1) VALUE BY 
29 F4 JR NZ,4FQE ;COUNT KN(1) VALUE TO ZERO 


20248 ~=FD £1 POP IY 3PUT EVERYTHING BACK 
DD £1 POP IX 3 
El POP HL ; 
D1 POP DE > 
cl POP BC 3 
FT “POP AF ; 
ED 7B 22 4E LD SP, 4&22 ;RETURN THE SP 
FB EI sENABLE INT 
c9 RET sBYE 





ONES ‘se FIVES 
BILL MEAD 





1 .to0 4 pkayer dice game. 
Maximum Score: 1000 to 30,000 


Points are accumulated by rolling: ones, 
fives, or 3 of a kind! 3 of a kind 
count only if all three are rolled at the 
Same time! 

Each "1" is 100 points 

Each "5" is 50 points 

3 of a kind is 100 times face value 
(3 4's+400) 


EXAMPLES 
1=19 1=199 
3 All dice 3 Only 2 dice 
5=50 counted! ! 6 counted. 
3 3 3's+300 5=59 Total of 
3 Total.of 450 2 150 


You may try for a higher score by remov~ 
ing "non-score" dice and rolling them 
again. This is done by moving the joy- 
stick to your left when the arrow is 
pointing at the die you wish to remove. 
The arrow itself may be moved by pushing 
the joystick up or down. After you have 
removed all the dice you want, squeeze 
the trigger for reroll. 


If you wish to collect score, move arrow 
down all the way off screen. 


You must roll 500 or more in one turn to 
meld, otherwise the computer will credit 


you with score. After you have melded, 


your score will automatically accumulate. 


If any 'new' roll or reroll fails to pro- 


duce 'countable' dice, you lose your turn 
(Bally does it for you). 


Pull trigger only to reroll erased dice. 
Editors note: Bikl Mead had only 
two months expertence in programming the 
Bakky at the time he devised this pro- 


gram. It shows what a newcomer can ac~ 
complLish! We found that a person can 
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cheat with this program 44 he 45 deter- 
mined, but cheating is not our "bag", 40 
we Left the program unaltered. We had 

a great tune playing it!! 


1 CLEAR ;NT=1;BC=19;FC=183;PRINT ;PRINT 


"ECOL Saka Shs 

2 PRINT ;PRINT ; INPUT "# OF PLAYERS?"A; 

PRINT ; INPUT "MAX SCORE?"M;CLEAR ;U=9 

; V=0; W=; 1=0;GOTO 19 

CX=-35 ; CY=); PRINT #1,0; RETURN 

IF (U>M)+(V>M)+(W>M)+(I>M) GOTO 9 

RETURN 

B=9; C=9; E=9; F=$; G=9;H=9;FOR O=1fTO 15 

;@(O)=$;NEXT O; RETURN 

9 CX=-25;CY=3;MU=77;NT=29; PRINT "WCITN 

CNCECROtt+t" ; STOP 

1f FOR O=21TO 24;@(0)=9;NEXT O 

11 FOR P=1TO 4;IF P>A P=1 

12 BC=Px32;GOSUB 799 

13 CX=-35;CY=$;PRINT "ctor" 

23 K=$;L=;GOSUB 6 

300 R=1;GOSUB 355;J=;N=9;FOR D=$TO 4;GOS 
UB 36%;NEXT D 

319 GOSUB 6;R=R+1;IF R>1GOSUB 899 

313 J=$;N=9;GOSUB 355;D=$ 

316 IF D<gD=9 

317 IF (D>4)+(L=%)GOSUB 99%+1%xP;GOSUB 4; 
NEXT P;GOTO 11 

318 CX=-49;CY=32-Dx16;PRINT "+", 

320 IF JX(P)MU=64; @(D)=9; BOX Gil ,CY,14,14 
up 

322 GOSUB 6 

325 IF TR(P)D=9;GOTO 335 

336 IF JY(P)=$Q=1;GOTO 329 

332 IF Q=SGOTO 329 

335 Q=9;CX=CX-6; PRINT "C";D=D-JY(P) ;IF D< 
8GOTO 316 

348 FOR D=$TO 4;IF @(D)=SGOSUB 369 

345 NEXT D 

347 GOTO 319 

35% FOR D=$TO 4;IF D=${GOSUB 369 














oo ae 




















355 CX=-35;CY=-29;PRINT "ROLL",#1,R;RETUR 


N 
368 X=-61;Y=32-Dx16;Z=RND (6) ;@(D)=2 
365 BOX X,Y,14,14,1;MU=79+z 
376 IF Z#Z+2x2BOX X,Y,2,2,2 
375 IF Z=6BOX X-4,Y,2,2,2;BOX X+4,Y,2, 
388 IF Z>1BOX X-4,Y+4,2,2,2;BOX X+4,Y- 
72,2 
385 IF Z>3BOX X-4,Y-4,2,2,2;BOX X+4,Y+4,2 
12,2 
499 IF Z=1B=B+1;@(19)=B 
419 IF @(1f)=33=7$9%;GOSUB 3 
411 IF B>3@(19)=9 
415 IF Z=2C=C+1;@(11)=C 
417 IF @(11)=3J3=299;GOSUB 3 
418 IF C>3@(11)=¢ 


CURSOR VOL.II PAGE 88 


2,2 
4,2 


429 IF Z=3E=E+1;@(12)=E 

422 IF @(12)=33=399;GOSUB 3 

423 IF E>3@(12)=9 

425 IF Z=4F=F+1;@(13)=F 

427 IF @(13)=30=499;GOSUB 3 

428 IF F>3@(13)=9 

438 IF Z=5G=G+1;@(14)=G 

432 IF @(14)=3J3=359;GOSUB 3 

433 IF G>3@ (14) =9 

435 IF Z=6H=H+1;@(15)=H 

437 IF @(15)=33=69%;GOSUB 3 

438 IF H>3@(15)=9 

449 T=Z 

459 IF Z=1T=T+99 

469 IF Z=5T=T+45 

465 IF Z#1IF zZ#5T=9 

509 N=N+T;CX=-30;CY=-35;PRINT #1,N;RETUR 
N 

70% CX=-39;CY=39;PRINT "PLAYER #",#2,P;R 
ETURN 

898 K=K+J+N;IF J+N=$k=9 

812 L=L+K;IF L>K L=K 

815 IF K=91=9 

816 CX=45;CY=39;PRINT #1,"=",L; RETURN 

91M U=U+L;@(21)=U;IF U<499U=9 

915 CX=39;CY=29;PRINT #1,"#1=",U; RETURN 

928 V=V+L;@(22)=V;IF V<499V=9 

925 CX=39;CY=18;PRINT #1,"#2=",V;RETURN 

938 W=W+L;@(23)=W;IF W<499W=9 

935 CX=30;CY=9;PRINT #1,"#3=",W; RETURN 

949 I=I+L;@(24)=1;IF 1<499I=9 

945 CX=39;CY=-19;PRINT #1,"#4=",1; RETURN 














THE pane |e HALF 


PAT BRADY 
CONTRIBUTING EDITOR 





Here I am again! I knew I was not alone. 
I have received several letters and felt 
this one merits your attention: 


I read your coLumn in CURSOR and felt I 
had to write! I have suffered from the 
Same problems you are going through now. 
However, my husband sat me down one day 
and expkained how fortunate I was. He 
began with "at Least you always know 
where IT am!". He coukd be sitting ata . 
ban, on going out with the boys twice a 
week, on worse yet, there could be an- 
other woman. He was right! I was being 
foolish, at Least that's what I told him. 











Lately IT have noticed some strange things 
happening. I'L wake up in the middle 
of the night, and he's gone! In search- 
dng for him, I hear the quiet sound of 
the computer, but something 15 different 
about it now! 


When I walk into the room, he shuts it 
066 , rewinds the tape, and seems very 
embarrassed! The following night when 

I noticed he was gone again, I approach- 
ed the room where the computer 4s Loca- 
ted, and could have sworn 1 heard heavy 
breathing, nhythmatic sounds and quiet 
beeping. I was too afraid to Look! ! 


I know this may sound silly, but I think 
my husband is becoming involved with the 
computer. What shoukd I do??? 


Signed, 
Beuxldered 
Dear Bewildered: 


Your husband may have stumbled onto 
something! I think what must be done, 
as this is a very serious matter, quick- 
ly forward the tape to me, so that I can 
study it carefully. There may be a way 
we can adapt this to the forgotten Half. 


Sincerely, 


B.Bs 


Anyone else that feels that they have a 
problem or just a suggestion feel free 
to write. All letters will be answered! 


Pat Brady 
806 Walden Ct. 
Schaumburg IL 60193 


SO LINE RESEQUENCE fD 


MIKE PEACE 

Ever want to change all the line numbers 
in a program without re-typing the whole 
program? Well, here is the answer that's 
sure to do the trick. There are a few 
drawbacks however, it can't change the 
GOSUBS or the GOTO's to correspond to the 
new line numbers. So, you may find it a 
good idea to initialize your subroutines 
‘by typing the original line number after 
the word "RETURN", like this: 
25 FOR A=1TO 19;BOX A,@,A,3,3;NEXT A; RETU 

RN 25 
After you have done this to all your sub- 
routines, you can go ahead and change the 
line numbers using the Line Resequencing 





Program. Now you will have new numbers 
on your subroutines, but you will have 
the old line numbers initialized so you 
can find the new numbers to re-direct 
your old GOSUBS to. 


Input the following program and record it 
for safe keeping. Next input the program 
you wish to change (make sure that the 
line numbers are all less than 500, and 
be sure to have at least 199 SZ after 
both programs are entered). 


Now type in GOTO 509, and key in a line 
number sequence UNDER 5@ (much less if it 
is a long program). You must not have 
your sequence go past 500 or you will be 


eating up the resequencing program. 


After entering the sequence number, you 

will hear the computer beep as it pulls 

out each line number and enters it into 

memory. Finally a quick scale of notes, 

and it will begin listing your new pro- 

gram and all the new line numbers. Now 

you. just have to type in the new GOSUBS 

and GOTO's and your all set to put it on 

tape for safekeeping. 

LINE RESEQUENCER 

59% CLEAR ; INPUT "CCSET LINE NUMBER SEQU 
ENCE"S;IF S>5@GOTO 520 

505 B=9;C=G;F FOR A=-24576TO A+1699; IF %(A 
)<1NEXT A 

519 IF %(A)>5Q@NEXT A 

511 IF %(A)=5Q@F=B;GOTO 525 

52 B=Bt1; @(B) =A;MU=B+48;NEXT A 

525 FOR A=1T0 15;MU=48+A;NEXT A 

53% FOR B=1TO F;C=C+S;% (@(B) )=C;MU=48+B; 
NEXT B 

549 LIST,F 


Use the aero program to try out 
your Aedseque 
BE PERSPECTIVES e290 

This program draws a perspective view of 
a highway Lined with detaplowp poles 
entering a city. : 

1g BC=111; &(9)=255 

29 CLEAR ;LINE -89,19,9 

39 FOR A=-89TO 89 

49 LINE A,RND (ABS(A)+1)-19,1 

5f NEXT A;LINE 9,-19,0 

6% A=19;FOR C=1TO 2MSTEP 2;A=A+C;B=A+6 

79 BOX A-3,-B,1+B+2,Bx19,1 

69 BOX A-3,Bx3,Bx5,1+B+2,1 

99 NEXT C;FOR A=-39T0 39 

19% LINE A,-44,1;LINE 9,-19,9 

119 NEXT A;FOR A=-44TO -11STEP 8 

128 BOX 9,A,ABS (A) +19,ABS (A) *6,2 

139 NEXT A;A=KP; RUN 
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TAPE 8 


ALL GAMES COME WITH 
LISTINGS OF THE =, 


PROGRAMS ON THE TAPE. Sy ‘ 


EDITORS NOTE: Mike Peace has had many 
programs printed within our pages and 
markets software on tape under the 
WaveMaker Label. Mike has finished his 
newest software: Tape #8 "BACKGAMMON", 
and at $10.95 is a tremendous bargain, 
as the computer plays against you!!! 
AAAAAAAAAAAAAAAAAA 


BALLY UNITS FOR SALE 


Steve Bryan bought out a small warehouse 
of Bally units. He is offering these 
units complete with hand controls for the 
unbelievable price of $175.00 complete. 


If you wish to take advantage of this 
tremendous bargain and buy your brother 
or a friend a unit at a price never more: 
to be seen, drop a check in the mail or 
call: 





STEVE BRYAN 

1151 S.E. 230 PLACE 
KENT, WA 98031 
(206 )854-8006 





2 AND 3-PART HARMONY 


Three 60-minute programming 
cassettes now available! 
1. Bach’s 15 Two-Part Inventions! 
2. Christmas Music; 27 Carols! 
3. Scott Joplin Ragtime Piano! 


— §95° Each 
GEORGE MOSES CO. 
P.O. Box 686¢ Brighton, MI 48116 


LAST CHANCE! 





If you've ever had a problem getting your 
computer to load a program from audio tape 


you will greatly appreciate the error-free 





load you achieve by using Digital Quality 
Computer C20 Tapes. 


Due to rising costs, we will be forced to 
raise our prices on this tremendous bar- 

gain. Order now, and save $21.15 (Radio 

Shack price is $34.90). 


Complete case of Cursor Brand Blank C20 
Digital Quality Computer Tape (10 tapes) 
is only $13. Hs (including postage and 
handling). CA residents add 6% tax. 
Please send cKaees and money orders to 
THE CURSOR GROUP, P.O. Box 266, North 
Hollywood, CA 91603 


PRICES FOR ALL PRODUCTS MENTIONED 
WITHIN OUR PAGES ARE SUBJECT TO 
CHANGE WITHOUT FURTHER NOTICE! 





8 ales & 
oOrwuic— 
© csZzin—-- © 
bd ‘= 6 Ey "ee 
@ 2Oew -a ct 
a oS © wu 4 
. q S>rpries 
QO ne ol 
) oRee S 
ra) csocw Oo 
9 8 58 & FIRST CLASS 
O a4 = ‘ 
eS Den wor 
bad 
~ = cnn © 
ff Orore oO — 
e 2 ©€fcO0320—- 
O 5 o ca = 
se FT eueseaoo 6 
- Soccer & 
O GO HO a & 
am, * - te ea 
© o— —J »« & © 
amrtoad N 
© Oo Ss 
oe S) SP) 305 * 
4 -aecmMm > 
ona © 
; 0 OW a) 
rv] SO>s & 
ee ocO10 3 
a® oO 4>—-10 +h 
a a. onmn WY 


‘U.S, POSTAGE 
PAID 


BURBANK, CA, 





PERMIT NO.291 


Arthur Bergantz. 
2917 Headland Dr. 
St. Charles, MO 63301 



































